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i REM 
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: 
2 ’ 
; 
i4 : . 
t IDENTIFICATION 
> 5 PRODUCT CODE:  MAINDEC-11-DZKWA-E-D 
55 PRODUCT NAME: LINE FREQUENCY CLOCK TEST 
= DATE REVISED: FEB. 21, 1976 
zs " MAINTAINER: DIAGNOSTIC GROUP 
Ee AUTHOR: J RODENHISER’2 LACEY-J COMEAU 
zc REVISED: FES. , i976 BY 8. BURGESS 
33 
ci COPYRIGHT (C) 1976 
3s DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
af ; 
-: THIS 1S FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
Re caneTen s NOTICE, THIS SOPTUARES OR ANY-OTHER CORTES THEREOF, MAY NOT. BE 
“a PROJIDED OR 0 HERW WISE MABE RVAILA BBL TO ANY Teh i PERS EX excehr FOR USE 
<= ON SUCH SYSTEM BIND TO ONE MAO AGREES TO THESE LICENSE T ITLE TO 
4e AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN’ IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
RAND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


48 
sc CORPORATION. 

5 DEC_ASSUNES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
3 EQUIPMENT HICH IS NOT SUPPLIED BY DEC. 
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fu 
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3.0 





GENERAL PROGRAM INFORMATION 


1.1 ABSTRACT 

fats PROGRAM TESTS THE KW1iL LINE FREGUENCY CLOCK. IT 
vac IDates PROPER OPERATION UNDER BOTH INTERRUPT AND 
NON-INTERRUPT MODES. 


1.2 SYSTEM REQUIREMENTS 


its PROGRAM 3 a gt D_TO RUN ON ANY POP-11 WITH 4K 
F MEMORY AND A Kil] LINE FREQUENCY CLOCK. 


OPPERATING INSTRUCTIONS 


2.1 LOADING 
PROCEDURE FOR NORMAL BINARY, TAPES, SHOULD BE FOLLONED 
Bea EO TEE TAGE IN THE BSPER TAPE READER 
€ LOAD ADDRESS 17500 
5 BEPRESS STRRT (TAPE SHOULD READ IN) 

2.2 STARTING 
PROGRRR pay ~ApORESS 1S 0200 
9 TTCH REGISTER OPTIONS (SEE SECTION 2.2) 

a Breer surtcn Re SEB Ram Sua S START BONA ENGS 
2.2 SWITCH REGISTER OPTIONS _ 
HERE [A List OF CONSOLE SHITCHES AND THEIR EFFECT ON 
THE PROGRAM... 
SWITCH | ACTION IF SET 
us 
14 N CURREN TING TEST 
13 eral Es PRINTOUTS . 
i iad ITERATIONS 
ig BELL ON ; 
g Loge Oh n Yes! RSpECIFIED IN SuR«7:0> 
-0 0 LOOP ON (ONLY WHEN SwRE = 


2.4 EXECUTION TINES : 
RobeL oF Ne FoR THIS PROGRAM IS DEPENDENT ON 7 
T IS BEING RUN ON. FOR A POP-11/40 
radu re SECONDS tg NECESSARY 70 001 PASS OF THE PROGRAM 
WITHOUT ITERATIONS. 


ERROR INFORMATION 


3.1 STANDARD ERROR REPORTING PROCEDURES 
ERROR PRINTOUTS CONSIST OF FROM 4 TO S$ COLUMNS OF DATA, A 


LINE FREQUENCY CLOCK PROGRAM 





+0 +0 +0 60-202 b= 0b op =p. po 


*. 


13 
14 
15 
is 
13 
Ba 
él 
22 
e3 
=4 
35 
3) 
=? 
39 
23 
30 
si 
32 
22 
34 
2s 
2b 
37 
38 
33 
4C 
4i 
oE 
oS 
By 
iat) 
36 
47 
et 
~t 
SD 
Si 
Se 
Ss: 
z 

s 
c¢é 
57 
cE 
=: 
£0 
&i 
be 
£2 
an 
ES 
be 


0 + 0+ b= 0 +0 + 8 + 8 = 0 & 0 Ob 28 + 0-+ 0 2 0-0-0 -2 O80 -+ 0-2 0-2h +0 20-98 -+ 6-0 20-0 - + 6-< > b+ + + H-09 





c--r-eeer x3 oor re 
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DATA HEADER, AND 8 oe ah 5 — ERROR MESSAGE CESCRIBING 


THE ERROR. FOR EXAMP 
CLOCK FAILED TO INTERRUPT 

; TEST# LKS 
o0e262 000344 000764 000007 9d00300 


Ei TEA of SERYEES Se Ea Mag Pine TEEPE SUS get 
oF DATA ARE ABBED nese Hey ntont 3E BEL AVERT to Babe t® ies 


3.2 UNEXPECTED int FEROS REPORTING 


AN UNEXPECTED TRAP TO — 4 CAUSES THE FOLLOWING 


MESSAGE TO BE PRINTED OUT. 


TRAPPED TO LOC 4 FROM LOCATION “XXXXXx” 
RESTARTING PROGRAM 


IN THE ACTUAL MES THE _“XXXXXX" IS REPLACED BY THE PC 
ADDRESS PUSHED ONTO THE STACK WHEN THE UNEXPECTED TRAP 


OCCURS. THE PROGRAM THEN TRYS TQ RESTART ITSELF 
DESPITE SWITCH REGISTER SETTINGS. 


3.3 POWER FAIL 


IF A POWER FAIL CONDITION IS DETECTED THE FOLLOWING MESSAGE 


1S PRINTED... 
POWER 
BETER PRINTING OUT THE MESSAGE THE PROGRAM TRYS TO 
RESTART ITSELF. 
DEVICE INFORMATION 
5.1 NFORMATZON r 
Tre cin TOLOK INTERRUPT VECTOR ADDRESS 1S 100 
THE CINE CLOCK PRIORITY LEVEL IS SRE 
5.2 REGISTERS 
LINE CLOCK STATUS REGISTER (LKS) 


BITe IF SET MONITORS] CAUSES AN INTERRUPT 
EHS — fONETOR BUT. SET BY Chock, CLERRED BY USER 


FLOW CHARTS 
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joule 


2+ telat bane phen teettetetaee SGA 4 koko Semler 0-0-2 0 0-20-02 p 2p op Re ee 0+ 0 & 29 0 9 pe 
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% 
.ABS 
-ENABL AMA 
LIST ME 
NL st “ MO, CND 
$SWR=1 Q 
$TN=0 


ee ete WS SPOUER, -SERROR, - STYPE, STAR 


Res ate 
~MCALL ebtiRs GET 
ober Mar 1-02 HUAEE gb JE FREQUENCY CLOCK PROGRAM 
*0IGIT baled “eg. 
is PAVHARD, emtes. 


!SPROGRAM BY J. COMEAU 


:ATHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
+ heer (MAINDEC-11-DZ2GAC-B1) ,AUG 29,1975. 


-SBTTL OPERATIONAL SWITCH SETTINGS 


3% 

= SWITCH USE > 

7# 15 HALT ON ERROR 

;# 14 OOP a M3 

7% 13 NHIBIT ERROR TYPEOUTS 

;* li INHIBIT ITE 

;* 10 PEL ON ERR 

3# ° LOOP ON ERROR 

;* 8 LOOP _ON TEST IN SWR«7:0> 

4 7-0 Gor TEST TO LOOP ON IF SWR<S> IS SET 


-S8TTL BASIC DEFINITIONS 
ESINTTIAL ADDRESS OF THE STACK POINTER ### 1100 ### 
STACK: [1 





SEQUIV ENT, ERROR : BASIC ¢ DEFINITION OF ERROR CALL 
“EQUIV ICT: SCOPE ::BASIC DEFINITION OF SCOPE CALL 
PS= here ;;PROCESSOR STATUS WORD 

sO. Tyee 
: KLMT= 1 3;STACK LIMIT REGISTER 

IRG= 177772 :PROGRAM IN TERRUPT REQUEST REGISTER 
DSWR= 177570 tS HAROWARE SWITCH REGISTER 
DDISP= 177570 ;;HARDWARE DISPLAY REGISTER 
,#GENERAL PURPOSE REGISTER DEFINIT 
RO= 70 GENE We NS a STER 
Rls “1 NERAL REGI STER 


SETUP 
S,.SERRTYP, .SCMTAG 
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DZKWAE.P11 BASIC DEFINITIONS 


35s “ES HY RS: Be ROERAN COUNTER 


358 | - #PRIORITY LEVEL DEFINITIONS 
355 R= 0 


3 


I 
ity t 
I 
ie 
I 


TY LEVEL : 
ITY LEVEL 7 


-#"SWITCH REGISTER” antes DEFINITIONS 
Swis= 100000 


bt bt sb Sb 
Bes 
BSLSSSSS 


40009 
20000 
10000 
pita 


—f fH 
e°°888 


20. 
SWOS 
s 
= 


‘sug 
au 
» SWE 
a 
» SW 
» able 
» ol 
, SKO 


Mmmmmmmmemne a 
SPEEEEEEEESon 
S 


Hunn nnnnnheneD <ccccc< 
5 


& 


INITIONS (BITOO TO BITIS) 


AA Ht 


4-40-4440 de 
on0000 
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279 000004 
280 000092 
000001 


WOWMMOM WWMM c 
4 4 O—4 B04 4 4 
+4444 4 4 44-4 

-. - oe oF is _— -- + 
WOWMMOWWMOoOMWW 

0-4 —4 & -4 404 B40 4 be 
Att 4 i 

O- MWCUIT IMOW 


OH NOLNe VOD 


_ TRAP VECTOR ADDRESSES 
TIME OUT AND OTHER ERRORS 
eave AND ILLEGAL INSTRUCTIONS 


i] BREFKPOT T TRAP (BPT 

5 INPUT MBuT TRAP (OT) **SCOPE*# 
Ha a TRAP (EMT) *#ERROR#* 
"TRAP" TRAP 


KEYBOARD VECTOR 

Bt i ity PRINTER VECTOR 
:!PROGRAM INTERRUPT REQUEST. VECTOR 
fies EQUATES : 


300 
301 
202 
303 
304 
305 
206 
397 
308 


NOP=240 
SUraS774 
BUF 1=776 


-SBTTL TRAP CATCHER 


2 


=0 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT™ 
*#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; #LOCATION 2, CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
bISPREG: WORD O - ;;SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD O ; SOFTWARE SWITCH REGISTER 


. SBTTL STING, ADDRESS(ES) 
JUMP TO STARTING ADDRESS OF PROGRAM 
eennnsnonananne ses crssnssvestinnsssusebbosonansasssecsoseeseed 


“HOOKS REGUIRED BY acti 
;SAVE PC 


iio 3;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


i. © tFRBSToRE Be "> CRO 


WWWWIGMWWWOIGIG 
0+ 0-2 0 6-2 b+ 6-8 26 -- b - h 
WO NWPUl ££ ITE © 


SRR ERNS 


LOI 
roe 





MAT 


334 


REE BIIN TN sn clo Slik oor oe Ne 


SS88S88SS8SB8SSS8Ss8 SS8SSsSsssssssssssss 


Ww 
Se 


rr 
oo 


C=11-D2KWA-E_ LI 


| FREQUENCY CLOCK PROGRAM 
02 Pil HOOKS 


S8888Sss 


tes 





bo b= B= = P= b= 0 hh > &  § > > b= B > + & -2 H > B20 H— Ps PH 2 Fo Hs HH 
2 bP —-2 & 2 & = = 6 Ob § = DF B= FB = = = 6-2 0 bP 2 bp po po 


BABNSFENS FRLOVSFEHSRENSR ENGST HK ENoOFLOUeS 


PRET STERN ata 


fururur 
t= 
£MVMo 





b-= R= - & = B= >= = B= b= & 2 2 B= bo = &-4 H— 


8 
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BRPCCCECEECO-90000000 
no 


fu 


OOOO OOO0OOOO00000 20-—MvoO 
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5 SEE EEE SE 9 9 SE J EE SE A EE RR EEE SEE EEE EE EE 
~SBTTL COMMON TAGS 


;¥THIS TABLE CONTAI 
#USED IN THE PROGR 


-21100 


SS: —~ 
aR : Bt 


is VARIOUS COMMON STORAGE LOCATIONS 


;;START OF COMMON TAGS 
;;CONTAINS PASS COUNT 


LeMans Botta 

:: CONTAINS SUBTEST ITERATION COUNT 

SOOT URINE SXOPE RETURN FH ERRORS 

+ EONTRING ai Bead Por ERED 
CONTAINS ITEM CONTROL BYT 

c ONTAT MAX. R TEST 


3 
g 
& 
2 
i) 
é 
S 


R STATUS REG. ADDRESS 

R BUFFER REG. ADDRESS 

TER FOR a 
QUI 


HARAC 
AFTER A “LINE FEED 


cc 
a 


Q 

S 

=m 

a] 

D 
ex 
26 
Cond 
: 


3 
BEBEDEDET ES 
RAAARGAR TF 


f 


34 
=} 
— 
— ee eee 
wv" 


TAINED 


le ee ee ee Te 
SESEEEES 
ESESE ESS 
ocmMo 
— es ee ee 


SSSGG008 


im 


;;MAX. NUMBER OF ITERATIONS 
;;ESCAPE ON ERROR ADDRESS 





TERS REQUIRED 
FLAG (BIT<O7)=0=VES) 
ROM 





MAINDEC-11-D2KWA INE FREQUENCY CLOCK PROGRAM 
DGKWRE.P11 COND TAGS 


3a] Bb.s80 7B OS"? Saues: “ect 
333 D01582 o000ld Sire) casei? 


MACY11 27(732) 


yy a ae 


«15> 
(le> 
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ETP E TION HARK 
;;CARRIAGE RETURN 
;;LINE FEED 
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¢ RERAAAAAAARARARA LALLA LALLA LA LAL ELA ALAA ARARALALE LE LE SERRE RLRELE 
WORD: 000000 


001234 00000 : 
.SBTTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


LETT YOR STTEMS, FuPe AUMPR Hub Teat ee aath CH ITER YN THe TRELE TS PERTINENT. 
seNOTEL: Fach THER if Fue Fase cONTAINE 4 KOINTERS. PRRrAINED AS FOLLOWS: 


5 POINTS TO THE ERROR MESSAGE 


HPOINTS 10 THE DATA 


;;POINTS TO THE DATA FORMAT 


; LKS 
;"PC PS SP TEST# WAS 
; SERRPC, SREG7, SREG6, SREGS,LKS, SGDDAT 


3 .SLOCK FAILED TO INTERRUPT” 
P TEST® LKS 

: SERRPC, SREG?, SREGE, SREGS,LKS 

impo INTERRUPTED WHEN ae tee PRIORITY WAS T00 HIGH” 


;SERRPC, SREG7, SREGS, SREGS, LKS 


Speen GIVES UNEQUAL # OF PULSES or ne EM. PERIODS OF TIME” 
; SERRPC, SREG7, SREGS, SREGS, SREG1 , SREGO 


ooo 


yLKS REGISTER RESPONDS TO_ANOTHER ADORESS” 
PS TEST# ADDRESS” 
 SERRPC, SREG7, SREGE, SREGS, SGDADR 


ooo 


impeN AE TIMEOUT HAS oceuR RD" 
; SERRPC, SREG7, SREGS, SREGS, LKS 


Se 


—- re 
o sru 


3 WRONG var whew CODES Were Bera ONTO erncy INTERRUPT” 
t SERRPC, srec?, SREGE. SREGS, BU BUF 1, $GDDAT 


Q00 


3 WRONG PC_PUT ONTO THE STO BY 6 AN INTERRUPT” 
 SERRPC, $REG7, SREG, SREGS, BUF2, SGDDAT 


BES SRS 
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ms 001334 ocoo00 0 
4 001336 g1220e EN "TRAPPED TRYING TO 0 ACCESS LKS REGISTER” 
Wea Bb eae pigeee Bytt SEP. SREE? SRECE. SREGS 
45 001344 00000 0 
456 
457 
5 s STARTUP CODE 

001 ens 0010900 kta : MOV #1000, SP s INITIALIZE THE STACK SO WE CAN CALL THE TYPEOUT 
ues Boidee Bracue oe ee i 

4 000034 V 34 -(SP) i SAVE CURRENT TRAP VECTOR 

463 001412 012737 001422 000034 MOV #645, 34 ::SETUP NEW TRAP VECTOT 
464 901420 104400 TRAP ;;PUSH OLD PSW AN PCON STACK 
465 oo1 Yee 016666 OO000E 64S: MOV 2(SP),6(SP) 3 
466 001430 012716 001436 MOV #65S, (SP) sREPLACE OLD PC WITH NEW 
467 Of 434 gogode RTI ; sRESTORE’ ovens 
468 0014 1 900034 65$: MOV (SP)+, 34 VECTOR 
469 001442 004737 006546 JSR PC, STYPE ately STARTUP MESSAGE 
420 00 Hi6 010256 mean STMES MESSAGE SRATNDEC=11-DZKWA-E" 
472 001450 012706 001100 MOV aSCHTAG, R& ssFIRST LOCATION TO BE CLEARED 
473 001454 Oos926 CLR (R6)+ ?;CLEAR MEMORY LOCATION 
474 001456 001126 €MP sSB00AT, Rb j3DONE? 
uve OoLNes bi270e 901000 MOY Fee ee SETUP, THE STACK POINTER 

us ty 
4 wo pistes use oo0020 MOV OP anon :I0T ve FOR SCOPE ROUTINE 
478 001476 Ole737 000340 o000022 MOV #340 atorve 2; ;LEVEL 
479 00 Oler3? 007970 MOV #SERROR Seen vec : Ee VECTOR FOR ERROR ROUTINE ~ 
4890 001512 O1 MOV #340 etre ;;CEVEL 
481 001520 012737 007774 000034 MOV #STRAP STARVE REP VECTOR FOR TRAP CALLS 
482 001526 012737 d0340 000036 MOV 340, DRTRAPVEC+2; ile ? 
483 001534 012737 01 0000924 8SPWRON, J#PWRVEC. ; j BOWER FAILURE VECTOR 
484 O00 012737 000340 O000c6 MOV #340, JUPWRVEC+E ;:LE 

is 

00 


rer eIveaveIMGIMETMT OMIM UMP Or MIUITIIUINU III & EEE EE ECE EEEELE 
<x 
fT 


Se HBL Rae Bil Om PEST” |S ORS UF 
ee fuiee flere Geeest gorse Sicgemex fatto Oe Earn SPEER TOOESS 
ygg 00 eee iiss? vot Bat tae MOV #., SLPADR hagees fe Looe ADRESS, FOR SCOPE 
490 00 602 01 001110 MOV #. . SLPERR 3 UP THE RROR LOOP 

43) us p18 Gis HOV id, “(38 ERROR” VECT: 

oe a an ee a Te 
gs bss 07 , , BR BRANC No TIREOUT. TRAP OCCURS 
4 ff E42 t anes ppt tae snes MOV ann Ati serie DISPLAY REG 
498 O01650 Oe2be6 CMP $3 

499 001652 012637 OC0006 65$: MOV + RESTORE RROR VECTOR 

500 OOIb5E 012637 090004 MOY ESHE TS 

01 005737 oo0004e TST 42 ;LOADED BY A MONITOR 

S02 OO1666 001401 ) BEQ T6001 *BR IF NO 

203 001670 oo0005 RESET : YES=-GENERATE AN INIT - 


See ee = = - —- 
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-SBTTL_ TEST THAT THE LKS CAN BE REFERENCED WITHOUT A BUS ERROR 
va : Paks ACCESS TEST 
16 BBLea Nee ; RV #£0001,a84 ; PREPARE FOR yey THE LKS REGISTER. BAD HARDWARE 
LOOP A BIT IN CASE OF AN ERROR 


SFIGHTEN UP. THE 
ay ate ee v hokey TF OT Hace ver 


e HE ONT TRAP IF WE R 
E0001: ;ERROR: : : TRAPED TRYING 10 70" access fhe aS REGISTER 


UICIUNIUTUN UU UU 
b= pa 
fu 


ob ope 
OONIWUI CO) 


~SBTTL_ TEST THAT START CLEARS LINE CLOCK INTERRUPT ENABLE BIT 
; TEST al CLEARS LINE CLOCK INTERRUPT ENABLE BIT 


toode 
#TRAPO, 284 sSETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
#340, 086 pe INTERRUPT WHILE PRINTING FATAL MESSAGE 
#ROOb2, SLPADR K ADDRESS IN CASE OF AN ERROR 


#200, SGDDAT GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
Be a ites THE INTERRUPT ENABLE BIT 
E0002: ERROR 1 ;ERROR, CLOCK INTERRUPT ENABLE NOT CLEARED BY INIT 


ROODE: 


esgeseeee 
Wiese 


.SBTTL TEST THAT START SETS CLOCK FLAG 
{TEST THAT START SETS CLOCK FLAG 


S20 
Sel 
ees 
Se4 
52S 
S26 
Se? 
528 
529 
530 
$31 
$32 
533 
535 


;SETUP_VECOR IN CASE OF Une ORSERN PROBLE' 

NO INTERRUPTS WHILE PRINTING FATAL MES 

sHAVE GOOD DATA INFO READY FOR ee IN CASE OF AN ERR 

:SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

;SHOULD SE 1 CL 

sEIND OUT IF IT DID 
GO ON TO THE NEXT TEST 

E0003: ERROR, CLOCK FLAG NOT 


ROOO3: 


IF IT SET THE CLOCK FLAG 
SET BY INIT 


-SBTTL Ma THAT CLOCK FLAG WILL SET AFTER SUFFICI 
; TEST THAT CLOCK FLAG WILL SET AFTER SUFFICIENT PER 


ENT PER 
to004: — * 

sSETUP_VECOR IN C ae 
S AN ERROR 
READY FOR TYPEOUT IN CASE OF AN ERR 


NO, INCREMENT COUNT 003 WAIT FOR SOMEMORE 
BNE acoo4 WALT SUFFICIENT AMOUNT OF TIME FOR CLOCK 
E0004: ERROR 1 ERROR, CLOCK FLAG FAILED TO SET 


BERER NES 


eee 
wT eMOLD 





SE ERR Tn sar RE RAP wy 


562 
ee 
T T 
a ie SEP nlf yaa ENTE BNPHivPAE SEY BF 
568 O02l22 012737 O0b22e2 o00004 #TRAPO, 84 _ sSETUP VECOR IN CASE OF UNF ORSEEN PROBLEMS 
24 Bost 3p pigese nant vanes nov 340,085 te re UERTe THES HY Ine a OYE OUT IN oe OSE OF AN ERR 
Boe peste pieeae Boot 4 Bot ihe Noy pO Nee OPADR SETUP L Boe. BACK ke IN CASE OF hae 
572 O0ei1S2 01374 000340 MOV PR7. -( SP) : PU 
573 002156 912746 002164 MOV nity -(SP) HPu NEW 
574 002162 RTI POP NEW "7 AND 'P 
575 O02 164 64S: 
576 164 005037 177546 ROOOS: CLR LKS 
577 002170 005003 ’ 6LR R3 s INITIALIZE A COUNTER LOCATION 
28 902172 105737 177546 aooos: TSTB LKS iTS THE CLOCK FLAG SET? 
176 1004 BMI go00s TF SO, CONTINUE ON WITH THE T 
580 00 03 INC R3 *TF_NOT INCREMENT THE COUNTER EBcaTyON. 
581 202 O01373 - BNE aooos "AND GO TEST THE. CLOCK FLAG AGAIN. UNLESS. 
S82 002204 104001 E000S: ERROR 1 CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
583 O0¢208 000410 nanetl BR TOO 
2g Bass 012737 000100 177546 MOV #100,LKS sCLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 
S86 002216 0320737 000100 177546 BIT #100" LKS :IS INTERRUPT ENABLE SET? 
587 O02224% 001001 BNE Too 
o58 002226 104001 E1005: ERROR 1 sERROR INTERRUPT ENABLE NOT SET 
2a 
5S2 .SBTTL TEST THAT INTERRUPT ENABLE BIT MAY BE CLEARED 
593 “TEST THAT INTERRUPT ENABLE BIT MAY BE CLEARED 
594 002230 o00004 tog0s: SCOPE 
595 O0ee32 012737 O06222 oO00004 HOV #TRAPO, 244 ;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
596 002240 012737 00 06 MOV #340, 346 ?NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
597 00224 012737 0000 1124 MOV #0, SGDDAT 
598 002254 012737 002274 COlife MOV #ROOOE,SLPADR ; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
699 002262 013746 000340 MOV PR7, -($P) PUT NEW PS ON STACK 
600 O0c266 012746 002274 MOV #64$, -(SP) ;;PUT NEW PC ON | STACK 
601 O0e272 o00002 RTI 3} POP NEW PC AND PS 
602 002274 4S: ; 
603 002274 005037 177546 ROOO&: CLR LKS 
604 O02 005003 CLR R3 s INITIALIZE A COUNTER LOCATION 
605 02302 105737 177546 aooos: TSTB LKS :TS THE K ‘FLAG SET? 
606 100404 "BMI 80006 :IF SO INUE ON WIT 
607 002310 INC R3 IF NOt INCREMENT THE COUNTER cation 
08 002312 001373 BNE ADDN AND GO TEST THE CLOCK F AG AGAIN, 
639 002314 i04001 E0006: ERROR 1 sCLOCK FLAG DID NOT SET AFTER a WAITING PERIOD > 20 MS 
£10 OOce2i6 Ooo041e BR T0007 
611 O0e320 BO006: 
bie 002320 012737 000100 177546 MOV #100,LKS ;CLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 
613° 002326 005037 177546 CLR LKS _ $6LEAR_INTERRUPT ENABL 
634 O0es3e 032737 OOD100 177546 BIT #100,LKS ‘TEST THE INTERRUPT ENABLE BIT 
615 02349 001401 BEQ 1S INTERRUPT ENABLE CLEARED 
bib ‘002342 104001 £10006: ERROR 1 ERROR, ERROR INTERRUPT BIT CAN NOT BE CLEARED 
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DZKWAE.F'11 


cis 


2 


2474 TOS7a7 
Bossog 100481 


TEST THAT INTERRUPT 


177546 


000004 
000004 
001000 


177546 


000004 


000004 
177776 


NABLE BIT MAY BE CLEARE 


TTL TEST THAT ¢ OCk INTERRUPTS TO CO CTOR ADDRESS 
jrEST THAT CLOCK INTERRUPTS TO CORRECT VEC br RESS 
i v #TRAPO oe if TUP VECOR IN Gast OF | UNF ORSEEN PROBLEMS. : 
MOV $300" Bie ar Nave" O50p bata ing ae FOR PIPE OUT. ite CASE OF AN ERR 
MOV #0007, SLPADR INITIAL AZE OFHE Loop DRESS IN CASE OF AN ERROR 
nov $0 abLOS jg Ru RETURN MBO NOE 
ROOO7: MOV #1000, SP det corey READY FOR INTERRUPTS 
CLR -(SP) ; DROP opy PRIORITY 
MOV #1$,-(SP) SET RET ADORESS” ON STACK FROM ’RTI’ 
RTI “RETURN TO NEXT INSTRUCTION 
1$: CLR LKS 
CLR R3 s INITIALIZE A COUNTER LOCATION 
aooo7: TSTB  LKS "TS THE CLOCK FLAG SET? 
BMI 80007 *TF SO, CONTINUE ON WITH THE TEST 
INC ; IF NOt INCREMENT THE COUN A 
BNE A007 AND GO TEST THE CLOCK FLAG AGAIN. UNLESS.. 
£0007: ERROR l omnes CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
poo0?: 
MOV #100,LKS sENABLE INTERRUPT 
CLR RO : 
co007: INC RO 
NOP ;STALL FOR TIME 
BNE ¢0007 WAIT FOR INTERRUPT 
£10007: ERROR 2 ani ZERROR, DIDNT GET INTERRUPT 
po007: STB LK ~ sENTER HERE IF INTERRUPTED 
£20007: ERROR 1 sERROR, INTERRUPT NOT CAUSED BY CLOCK 


TEST THAT CLOCK WILL INTERRUPT WITH Ao es a PRIORITY 5 


. SBTT! 
TEST” THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 


NOTE: 
to010: 


ROO10: 


1$: 


es: 


Tere IS NO HARDWARE ’PSW’ THIS TEST WILL BE SKIPPED 


MOV #TRAPO, J#4 ;SETUP VECOR_IN CASE OF UNFORSEEN PROBLEMS 
MOV #340, J46 ?NO_ INTERRUPTS WHILE PRINTING FATAL MESSAGE 

MOV #20010, $LPADR INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
MOV #00010' 100 :SET UP VECTOR R INTER 

HOV rH0, able NO INTERRUPTS ALLOWED AFTER THE FIRST ONE 

MOV 1 (5P) ;SAVE BUS TIMEOUT VECTOR CONTENTS 

MOV als :SET A SERVICE anes) IN CASE TIMEOUT OCCURS 

HOV WPRG PS D0 HE HAVE A HARDWARE *PSW’ 

CMP (SB }+, (SP)+ RESTORE STACK FROM TIMEOUT 

HOV at RESTORE BUS TIMEOUT VECTOR CONTENTS 

MOV (SP)+,4 sRESTORE BUS TIMEOUT VECTOR CONTENTS 

MOV #1000; SP INITIALIZE THE STACK POINTER 


MAINOEC=LI-DIKWA-E LINE FREQUENCY CLOCK PROGRAM 10-SEP-76 13:12 PAGE 15 
ine Pil TEs? : ? 


INTERRUPT WITH PROCESSOR AT Get 


DZKWAE. WAT CLOCK WILL YS 
g74 002612 90500 & s INITIALIZE 9 COUNTER LOCATION 
$75 obeeis ies 177546 nooo: $818 its fg THe clock FLAG EET 
675 002620 100 " BMI 0510 IF SO, CONTINU “Su HITH THE TEST 
$77 2 005203 iN OR LIF NOT INCREMENT THE COUNTER LOCATION 
28 1373 8 90010 3AND GO_TEST THE CLOCK FLAS AGAIN. UNLESS... 
8? 104001 =, E0010: ERROR 1 CLOCK FLAG DID NOT SET TER A WAITING PERIOD » 20 MS 
§80 902630 O00415 = » SR TOOL! 
Ess Dose raz pogico irrsue may a0, us ENABLE INTERRUPT 
Ess Soseag pheong eto CLR = RO 
OOe64e 005200 cooio: INC RO 
f55 “ 40 NOE :STALL FOR SOME. TINE 
536 O17 SNE C0010 FOR I 
&87 0 3040 E10010: ERROR 2 | ‘ERROR, INTERRUPT FAILED TC OCCUP 
ess BG [beret 177546 sooo: Fee ike sENTER HERE IF INTERRUPTED 
$30 002660 100401 MI TOOL 
3 104001 E20010: ERROR 1 sERROR, INTERRUPTDID NOT CLEAR THE CLOCK FLAG 
S : 
ess »$BT7L TEST THAT CLOCK WILL NOT INTERRUPT WITH PROCESSOR PRIORITY & 
ESE uote i THAT CLOCK WILL NOT INTERRUET WITH PROCESSOR PRIORITY 6 
1 ee S NO HARDWARE 'PSW’ THIS TEST WILL BE SKIPPED 
eS bb Sirs? Dobe E soonns Rov aTRAPO, 284 SETUP VECOR IN CASE OF UNFORSEEN PROSLENS 
ie ea 
S33 Doseis «Sats ae ae S INITIALIZE A COUNTER LOCATION : 
734 roerig Teno) 17754 noon: $878 tis 1S THE CL  FoAG Ser? 
705 0028782 100404 BMI = BO011 TP So. CONTINUE GN HITH THE TEST 
706 902724 005203 INC R3 :IF_NOt INCRENEN NT THE COUNTER LOCATION 
coc Doevee 01373 e RO011 AN GO TEST THE CLOCK FLAG AGAIN. UNLESS. 
708 00e730 104801 E0011: ERROR 1 CLOCK FLAS DID NOT SET RETER A WAITING PERIOD > 20 MS 
703 Se7ae aoos43- am To012 
re Bene Gllme Bim Be ee ees 
15 Basoay 517 Bie7es 90004 mov als seer SERVICE "PC TN Set in UF occurs 
714 003752 912737 177776 MOV aeag, PS 00 WE HAVE A HARD 
715 o4 35 35 ; dtr ves 
71E 18: CMP 80s (SP )4,(SP)+ RESTORE STACK FROM BUS TIMEOUT 
217 4 O1 000004 MOV SP) .4 RESTORE BUS TIMEOUT VECTOR CONTENTS 
sig Bosrvs 900004 2s: Rov CSPI, :RESTORE BUS TIMEQUT VECTOR CONTENTS 
720 902776 012737 990100 #£1011, 100 ;SET UP VEC TURN 


| 

l 
003026 MOV 

? ® 

| 3 l o 12737 000190 1775 HOV #100,LKS Naat Eo NTERR ee err 

72 14 1 177546 cool1: {STB  LKS Po LG cK as ET 

| - 734 1004 I ll IF SO 

725 poe203 nC = TF NO REMENT THE cout Me caTION, 


7 Ol) aa 

7e 1 Ol E1011: tae 1 ;CLOCK F DID NS “Str ra - Yar¥ine Staton > 20 NS 
7es 0030 1s R 

729 003 0001!: 











MA 
Ook 


Buenos 


ae 


PRIOR 


sae B88 BSBsBEBEE 
R® 


VFO 


PR ERE R RR 


a 


Husnuandets 
CHREBE cRoRRS 


=11-D2KWA 
Pll 


poco 


re 


S33 SRMOMECER 


Test fuer 


Soes28 pants 
a Be 


177546 


177548 
177546 


003210 
177546 


001106 


001106 


FREQUENCY CLOCK PROGRAM MACY] 
CLOCK WILL NOT INTERRUPT WITH PROCESSOR PRIORITY 6 


E20011: ERROR 3 


-SBTTL_ TEST THAT RESET SETS CLOCK FLAG 
SETS CLOCK FLAG 


; TEST ~— » 
- #200 peo 


todi2: 


ROOle: 
AdCL2: 


E00le: 
BO0le: 


NYP 


‘BM 
Ei00l2: ERROR 1 


-S8TTL TEST LINE CLOCK 5 eit ty 
;TEST LI 


; MAK Tg 
j THE cLoee urs OU 


E0013: 


R013: 


1 27(732) 


Toole 


134 roe 


$0012, SLPADR 


a REPE 


PR7,-(SP) 
#64$,-(5°) 
roe 
LK 

R3 


K 
Hi 


AND13 


TOO14 


#R2013, $LPAOR 
We 


Se 


R Tao ceaerL P EA ORS pt oe 


INITIALIZE A COUNTER LOCATION 
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;GIVE CLOCK EXTRA TIME TO INTERRUPT 
;ERROR, CLOCK INTERRUPTED KITHOUT H@VING PRIORITY 













;HAVE GOOD “gt ed READY FOR Mig 3 IN CASE OF SN EPR 






:SETUP VECOR OF UNFORSEEN PROBLEMS 

:NO_ INTERRUPT ea PRINTING cata MESSAGE 

:SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

sCLERR CLOCK FLAG 

SINITIALIZE A COUNTER LOCATION 

18 THE CLOCK 1? 

IF SO sige WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

“AND GO TEST THE CLOCK FLAG AGAIN. UNLESS.. 

;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 


;SHOULD SET CLOCK FLAG 


;ERROR, RESET DIDN°T SET CLOCK FLAG 






set AR 1ST TIME COUNT 








SeoT 
33; POP NEW Be AND PS 
;ERROR IN NEXT FEW INSTRUCTIONS CAUSES A SHORT SCOPE LO 


CLOCK FLAG A COUPLE OF OF TIMES 
8 fea LOCATION | 


u. % TEST 
LOCATION 


Ess... 
song 60 FLAG DID NO Er OF TER 4 WAITING PERIOD > 20 MS 


;MAKE SCOPE LOOP SHORT IN CASE OF AN ERROR 













“I 
wo 
- 


eieistateeiaiieep mera pat 


Suaniene sein 


Le 


[esleeleslecleclecleslislestes] 
= b= b= b-- 0 bb ~2 §- fo o 
WONWUICWlT-O 


8 
? 
8 





ee 


RAR RIP nee Sar wR LOLS 





wo 
4. 
= 


DoRARe Put mig 
788 sees 105737 


R 
< 


s 


a8 
oe 
SEVVEK 


177546 


1SPENe 


177546 


ae 


177546 


003106 


001106 


001106 


C0013: 


£10013: ERROR 


00013: 
FOO13: 


GO0013: 


R3013: 


HOO1S: 


£20013: 


30013: 
R4O13: 


KO013: 


£30013: 


LO013: 


MOO13: 


NOO13: 






NE FREQUENCY CLOCK PROGRAM 
INE CLOCK REPEATABILITY 


TST8 
MI 
NC 


MACY11 27(732) 


HO013 
TOO14 
#R4013, SLPAOR 


zr 
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ere lt og ns 
-G0, TEST T rE CLO PLGA AGAIN. 
of rlke Dib ER A WAL 


fe CLOCK FLAG SET 


341 TO CLOCK COUNT 
OCK IF SET 


TESS ton > 20 MS 


; CLEAR 


EOE SPI on 
ala eee 
ga test TH THE Bol OeK FL HIER CACAO. 


;CLOCK FLAG DID NOT SET BFTER A WAITING Beaton > 20 NS 


; INSURE A SHORT SCOPE LOOP 
s NT TIE Ze A Bick FLAG. Bp OCar ron 
are WITH THE TEST 
T THE COUNTER LOCATION 


OCK_FLAG AGAIN. 


: AND GO_TEST THE C ans 
; SET RETER A WAITING PERIOD > 20 MS 


;CLOCK FLAG DID NO 
;MUST LOOP BACK TO BEGINING OF TEST IF EEROR COMES NOW 
sIS CLOCK FLAG SET 
isl TQ CLOCK COUNT 
eet SET 


; IL : 
315 1ST CLOCK COUNT EQUAL TO 2ND CLOCK COUNT? 


apy ER FOR aed A 
RED RiE Ppa 


1 Re 
oe SHEE HER 














o 


ZKWAE 
te 
84s 
Bu 
B48 
A 
853 
Sec 
856 
857 
858 
8s3 
860 
861 
862 
863 
864 
865 
Be? 
858 
8&9 
870 


@ 
“I 
= 


mu 


ee 


Sa 
. 


Be 


2 
Se BBs 


en 


Sa © 


SESS SRR EDR! Baal total sont 


PPB 


Rooi4: 
Bat 


BO0L4: 





NCY_ CLOCK PROGRAM 
ISTER ADDRESSING TEST 


aa 
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ys ETE Sa UT UP 


LKS ALSO CHANGE N a1 AN ERR 


Sper SLPAOR ;INITIALIZE THE LOOPBACK ACDRESS IN CASE OF AN ERROR 


7eb, $GDADR ADDRESS EXCEPT WITH BIT 12 CLEAR 
root, 4, $2006 Sector IN BREE iF aie XISTANT 
PR? *(SP) 3 ;PUT ON STACK 
#64$,-(SP) 3 }PUT Hy Pe ot STACK 
:: POP NEW PC AND PS 
#1000, SP SETUP THE STACK 


LK 
#100, dSSDADR ;SET THE “CLOSE” ADDRESS TO = 100 
#i00,LKS ;MAKE SURE THAT “LKS” WAS NOT AFFECTED 


;IT AFFECTED “LKS” -- ERROR 


@SGDADR ;CLEAR OUT THE “CLOSE” ADDRESS 


-SBTTL LINE CLOCK REGISTER yi Ha TEST 


jb INE CL L9C k REGISTER ADDRESSING 
MOV #A0015,4 ;SETUP VECTOR IN CASE IT IS NONEXISTANT 
mw ee 
HV 4177196, ScDRDR Me aS Ke aboRese ExcerT arly ets NEAR 
NOY PRD SEU NEW BSON Stace 
MOV alt eae 33PUT NEW PC ON STACK 
Saat RTI :: POP NEW PC AND PS 
ROOIS Mov + ,SP ;SETUP THE STACK 
10915: MOV $100, 2SGDADR SET THE “CLOSE” ADDRESS TO = 100 
A0015: BIT i gbks MAKE SURE THAT “LKS” WAS NOT AFFECTED 
E001S: ERROR — AFFECTED “LKS" -- ERROR 
p0015: CLR LKS 
MOV s70018 4 
CLR as ;CLEAR OUT THE “CLOSE” ADDRESS 
.SBTTL NEC GISTER SSING TEST 
ib INE cugek RES at TER A BRBRESS ING iP of 
T0016: SCOPE 
MOV rene 4 ;SETUP VECTOR IN CASE IT IS NONEXISTANT 





secohy SLPAOR ;INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 





ett LINE FREQUENCY CLOCK PROGRAM MACY11 27(732) 10-SEP-76 13:12 PAGE 19 
OZKWAE.P11 LINE CLOCK REGISTER ADDRESSING TEST 


g03714 77446 001120 #177446, $GDADR ;SAME AS “LKS" on oRESS EXCEPT WITH BIT & CLEAR 
722 PR? (SP) PUT NEW 
ity -(SP) :iPuT NEW Be ON STACK 
POP NEW PC AND PS 
i ,SP sere THE STACK 


, 9SGDADR SET THE “C RESS 10 =} 
SLKS E SURE TRAE “LK NOT AFFECTED 


m7 AFFECTED “LKS” <-- ERROR 


Soe Cen eae 
: 4 


LK 
T0017 4 
@$GDADR ;CLEAR OUT THE “CLOSE” ADDRESS 


-SBTTL_ LINE CLOCK REGISTER ADDRESSING TEST 
;LINE Rhee REGISTER ADDRESSING TEST 


+9017 
ane 4 SS2TUP VECTOR IN CASE IT IS NONEXISTANT 


UBL ESe, SLPAOR, ; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
pa i “KS ees EXCEPT WITH BIT 3 SET 
;;PUT NEW rel Fe 


#1000, SP ;SETUP THE STACK 
Ke 


siBp eRe Ree Chee HARE “Che RS NOT APPECTED 


g001? 
;IT AFFECTED “LKS" -- ERROR 


OOWO0OW0OUWW 
0 ee 
WOnNMUILC WH 


= 


SSS 
G) 
Zag 


eas, 8 


Se 
GEaNG 


8 
— 
£ 


;CLEAR OUT THE “CLOSE” ADDRESS 


; TIL NE CLOCK REGISTER AD NG TEST 
Ea iE A SSE ON 
MOV 4 ;SETUP VECTOR IN CASE IT IS NONEXISTANT 
feR «$00 | 
NITIALI OOPBACK ADDRESS IN CASE OF AN ERROR 
41775 »ScbA0R Son are FS LS aE go a aDDRESS EXCEPT RITE Bit a Ser , 
#64$, -(SP) isbut T NEW EO STACK : 
‘ + POP NEW 
#1000, SP one THE STACK 
,SGDADR ©; SET THE “CLOSE” ADDRESS TO = 100 


ae 


: 


920 | 
a5 
32 
923 
924 
925 
926 
927 
928 
339 
931 
335 
334 
935 
936 
937 
928 
$39 
946 
a4i 
a4¢ 
943 
944 
g45 
au 
a9 
950 
951 
$52 
93 


qegesscvezees 
SPZSSFHESAFERS 


an 
+8 
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032737 000100 177546 A020: Fed SADGALKS ;MAKE SURE THAT “LKS” was NOT AFFECTED 
OR S 


test ;IT AFFECTED “LKS” -- ERROR 
177546 0020: ae LKS 


00S037 
Bae4 Puges eee | CUR Sucbaor * - ;CLEAR OUT THE “CLOSE” ADDRESS 


Ets gi aa rueaetare = 
MOV 


;SETUP VECTOR IN CASE IT IS NGNEXISTANT 


2 
s 
S 


8 
Be88 
BS 


is 
2 


e 


s INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
$GDADR ;SAME AS “LKS" ADDRESS EXCEPT WITH BIT 7 SET 
PR? aS, 5 ;PUT NEW PS ON STACK 
aes, -(SP) - 5 PUT NEW PC ON | STACK 
: POP NEW PC AND PS 


a fa 


aL 


#1000, SP ;SETUP THE STACK 
LKS 


#100, JSGDADR ;SET THE “C ADORESS TO.= 100 
#100 LKS :MAKE SURE THAT “LKS” WAS NOT AFFECTED 


;1T AFFECTED “LKS" -- ERROR 


S 
Ba 
58a 


as 


j=) 
-— 
mu 
“J 
38 
dé, 
fui 
£sto 


3 


sCLEAR OUT THE “CLOSE” ADDRESS 


STER HIGH BYTE TEST 
GH avr et 
STER LOW BYTE RESPONDS TO THE HIGH BYTES ADDRESS 


;SETUP_VECOR IN CASE OF UNFORSEEN PROBLEMS 
;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 


; ; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
a BYTE OF 4, 4 REGISTER 


He T Ut Ned nse 
AND PS 


3$4 
e 
353 | 
960 
z 
2 
966 
Yd 
969 
970 
97 
3 
$73 
974 
975 
976 
977 
a 
980 
381 
982 
983 
984 
985 
986 
987 
988 
989 
990 
B 


a 
2229 
dag 


SETUP THE STACK 


;SET THE HIGH BYTE ADDRESS TO = 100 
RAKE CURE THAT “LKS” Lon BYTE WAS AFFECTED 


;SHOULD HAVE SET BIT 7. ERROR 


6 Bs 


8 
83 


Sissi citieincsin Tt 
aes 


0-0-0 -0- 0 b= 6-- 6-0 -- b— 





HO2 
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ob 
oo 
“~ 
oOo 


o 
= | 


~SBTTL CLOCK pun BT TEST 


tee {GuOCK FLAG BIT Te 
15730 Bocb0 NOV NO INTERRUPTS WHILE PRINTING FATAL MESSACE 


Ql 
Need il * ; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 


ene ete f3 ie 8 COUNTER LOCATION 
1 "BMI 


OONIMUICWluH 


= 


INUE_ON WITH 


aN) WPAN M6, PUMA SHEPTON, 


CLOCK FLAG DID NOT SET AFTER A WAITING BERton > 20 MS 


SHOULD of AFFECT The FLAG IT 
;CLOCK FLAG DID NOT CLEAR 


SETUP _VECOR pc 


nS Erber eh eb ie Na ie OF aN ERR 
INITIALIZE THE LOOPBACK 


;ALLOW CLOCK INTERRUPTS 
tiput W PS ON STACK 


PR7.-(SP) 
#64$, -(SP) PC ON STACK 
oP NEW PC AND PS 


ae 


=n 


#300,LKS 


zi 


T DONE WAITING 
: : C pen TRTERR Y ENABLE 
$SD08T, LKS HE 


THE NEXT TE tt DID 
E0024: a INTERRUPT teslire OR CLEARED CLOCK FLAG 


ae 


.SBTTL SACK TIMEOUT TEST 
*NO SACK TIMEOUT TEST 
: SCOPE 


too25 
MOV aTRAPO 4 sSET UNF ORSEEN PROBL 
NOV $00" i T RTERRUPTE pie PRINTING FYPEOU ha N CASE OF AN ERR 
Nov SRODSe SG PROR yi TAL OMe LROPBAER ADDRESS IN C AN ERROR 
MOV #340, 102 NO INTERRUPTS AFTER THE FIRST ONE 


TEP E IAIN Se GRR EORT OREO Re abe son res 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bt 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 


3 





BESPRIGR ARSE GROEN OS dsc Zan 


enn 


BOVFAL OHS 


bb b= be 


OC NOU £ WTO 


hs hs bo a 0 a Oe Bae be bm he ne hn Bo Bh 2 b= 2 be hn Fe b> 2 2 2 = Pe Pe =n fo > 2 2 = = 2 9 fo 2 0 Fo 2 B00 Po Fo 


eo + +0 — > b= 8 —- pb b+ B= & + Bb 2 Bh O-  h 


R 
ir 


004734 


Bore Buse 
Dow7ee od0008 


DRE SSUURESRRE 


aieiaiiessistiicistata! 


1 


a 


8 
-~ 
Lf) 


sso 


Se 


: 


Ber 


8 


: 


< 


SGN BSR 


8 
6 


: 


SURESH POS ARE ERIE PO 
1 00S 


WAIT 
£10025: ERROR & 
codes: 
E200eS: 


MACY11 27(732) 


#C00eS, 100 


-(SP) 
#64$, -(SP) 


RS 

LKS 

EgUeS 
Aodes 
T0026 
-(SP) 

Ble (SP) 
#100,LKS 


$300°LKS 
ToO26 


° Reset RESET TEST 


iboze 


E0026: 


TTL 
;CLOCK FLAG 
MAKE 


SESSSE 3ES88E 


+ 


3 


#TRAPO, a84 


#340 
#200, SGODAT 


pares 


#64$, -(SP) 


wpm 


CLOCK Une IT TEST 
SU ob DOESNT CLEAR WHEN YOU TRY TO SET IT VIA A *MOV*® INSTRUCTION 
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PUT NEW HER ON STACK 
5 iPUT NEW ON STACK 
;; POP NEW PC AND PS 
ITIALIZE A COUNTER LOCATION 
T K FLAG SET? 


ee 
50, ¢ ON WITH THE TEST 

NOt INCREMENT THE COUNTER LOCATION. 

TEST THE CLOCK FLAG AGAIN. 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS. 


;DROP CPU Ae PU PRIORITY LEVEL 
Bue ¢ 10 Next ANSTRUCTION 


STE ORL Pay OF EERUE. PERE WITHOUT ERROR IS TO INTERRUP 
IF 1F ERR OR 1S HERE ITS BECAUSE OF A “NO-SACK” TIMEOUT 


;FIND OUT WHAT THE INTERRUPT DIO TO THE CLOCK STATUS REG 
IT CLEARED THE INTERRUPT ENABLE OR THE FLAG BIT 


ino TnTERRUP out: PRINTING FATAL RESEAGE 
Y FOR TYPEOUT I 


N CASE OF AN ERR 
Ber ADDRESS IN CASE OF AN ERROR 
T NEW ON a. j 


3; POP NEW 


sSETUP STATUS FOR AFTER THE INTERRUPT 


;SETUP THE STACK 
;SET_ INTERRUPT ENABLE BIT NOW 
;WAIT FOR CLOCK FLAG TO SET 


;RESET SHOULD NOT CLEAR THE FLAG 
;FIND OUT IF ID DIT DID OR NO 


;RESET DID NOT INITIALIZE THE LKS WORD CORRECTLY 








~- 


ame 
me 


99 G2 Ds b= Hs 2 He 


OBB NR Lore 


Ww 
- 


02 2 bs be be bs bo ho be be Bh be bo Fb n bs 0 bmn Be bane Pe Fo 0 Bn be bo b> me Ps be Pe ne Pe Pe mo Po hm Pe Pe ne Pw Ps Pe me Po b> ns fnew Pn Pane 


JHA SSS GA TOO OS SENT IO 55 Sah EGE S aA POD 
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Pll CLOCK FLAG BIT TEST 
V aTRAP a4 SET NC UNFORSEEN PROBLE 
Bpetee Bise3e ees Bpoooe y Boke ino VINTERRUP Pre wie E Peihring Fara a MESSAGE 
005174 012737 001124 MOV aoc’ $GDDAT TYPEOUT IN CASE OF AN ERR 
gose08 Boece 61 001106 HOY arti, SAY TIAL Tze ORME TOOPBRER ADDRESS IN CASE OF AN ERROR 
005214 Ol 000100 ah #70030 ,100 
005222 005037 177546 ROO27: CLR LK as ne ee - 
te - 
ppesss piace V #64$, -(SP) ttPUT NEW Pe ah STRek 
005236 900002 ee RTI +: POP NEW P 
GoseNg 912706 901990 “MOV #1000, SP ;SETUP THE STACK 
1234 CLR WORD” :SETUP A COUNTER LOCATION TO = 0 
gos250 b05e37 001234 aooe27: Inc WORD 
1 Ag027 ;WASTE TIME LOOPING UNTIL THE COUNTER REACHES 0 
005256 012737 000300 177546 MOV #300,LKS iSeT INTERRUPT ENABLE AND TRY TO SET THE CLOCK FLAG 
gpseb4 1 00 177546 MOV #200: LK TO SET IT N 
? eas 001124 CMP LKS, $GDDAT OTD THE CLOCK FLAG STAY x3 T? 
005300 001401 BEQ T0030 IF NOT GO ON TO THE NEXT TEST 
005302 104001 £0027: ERROR 1 *ERROR - MOVED A '1" INTO THE CLOCK FLAG BIT AND IT STAY 
\SBTTL CLOCK FLAG AFTER INTERRUPT TEST 
-SEE IF-AN INTERRUPT CLEARS THE CLOCK FLAG 
005304 000004 t0030: SCOPE 
005308 012737 oO06222 on0004 MOV #TRAPO, d#4 ; SETUP VECOR IN of CASE OF UNFORSEEN PROBLEMS 
005314 012737 000340 000006 MOV tie ake NO INTERRUPT PRINTING FATAL MESSAGE 
005322 005037 177546 CLR iNO LOCK INTERRUPT ; BEE ORE WE ARE 
eer bisray Bosse DOLLOE NOY ee NITIALIZE THE LOOPERCK aCK AOE BRess IN CR In gree oRRON 
5 OLB 508 aft oo0100 — CUR CN WILL ALBA FU FURTHER INTERRUPTS 

Bpeses | ppeaae eth BOP CPU pve tevet 
005356 012746 005364 HOV “i > sp) SET RETURN UR “pe! TFEOR THe of I 
ppesee eae 001000 1S: MOV #1000, SP >SETUP THE Nera 
005370 005037 1775H CLR, LKS tt 
Bpesoo Aieza7 Abed 177546 i #100, LKS Bee E eLOGK INTERALP S NOH 

a8 Neier O0S442 000100 A030: MOV #E0030, 100 + ERROR oF it F WE INTERRUPT T AGAIN 
poeuse Seat 00S426 aon #80030, (SP) oF ert Wiper rhe RTI 

4 ne RTI ee 16 NEX INSTRUCTION 
005426 105237 001234 B0030: INCB WORD :DO A NOTHING LOOP FOR A VERY SHORT PERIOD OF TIME 

4 091378 BNE 80030 :WE SHOULD INCREMENT TO 0 LONG BEFORE AN INTERRUPT COMES 

4 177546 L LK 
805 000401 BR T0031 
005442 10400} £0030: ERROR | ; INTERRUPT DID NOT CLEAR THE CLOCK FLAG 


.SBTTL NO INTERRUT AT PRIORITY 7 TEST 
“TEST THAT CLOCK WILL NOT INTERRUPT WITH PROCESSR AT PRIORITY 7 
o0s444 coo0o4 T0031: sco 


RO TINDE CE 1} -OZKuA NS tht teat ee aye Ney one fy <P RgRAM MACY11 Ge 10-SEP-76 13:12 PAGE 24 


446 15? pppsce pone 000004 #TRAPO, d#4 ;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
1s? 7) OOL08 MOV #340, 086 sNO_INTERRUPTS WHILE PRINTING FATAL MESS 
127 ; ee 001106 0031 M #9031 , SLPAOR ;SETUP LOOPBACK ADDRESS IN CASE OF AN ERRO 


R3 sINI TIALIZE. p COUNT R LOCATION 
177546 : K ‘TS THE T? 


TF ON WITH THE TEST 
it so, Ca He THE COUNTER L ATION. 
AND GO LOCK FLAG AGAIN. ESS. 
CLOCK F TOIDe NOT SET AFTER A WALTINE ERIOD > 20 MS 
s INITIALIZE THE STACK POINTER 
Pao 900 3 s3BUT NEW 8S ON STACK 
#64$, -(SP) >:PUT NEW PC_ON STACK 
>: POP NEW PC AND PS 
#£0031, 100 SET UP VECTOR RETURN 
#100,LKS i INTERR 
CL N TFTA A CoUNTES LOCATION 
c0031: LKS K F T? 
00031 : EON N MITH T THE TEST 


2 R3 gd 
E10031: ER os t9.¢0 Te GH, iva A WAITING & ERTOD > 20 MS 


T0032 
00031: 


64S: 


whet monnitogmmbictesesieteuee” * 


b= b= b—< b= b= 0 b= b— 6 & ~~ b— b= = 6h 9-2 9 — 9 p= po pe 


BR T0032 ;GIVE CLOCK EXTRA TIME TO INTERRUPT 
E20031: ERROR 3 ERROR, CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 


Gere ES 


.SBTTL CC PUSH TEST FOR CLOCK INTERRUPTS 
; TEST wee INTERRUPT PUSHES CONDITION CODES ONTO STACK 


+0032: 
STRAPO, 284 ;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
#340, 046 NO_IN TERR TS WHILE PRINTING FATAL MESSAGE 

aR ,SLPROR  ;SETUP L ADDRESS IN CASE OF AN ERROR 
sINIT TALIZE A COUNTER LOCATION 

LKS SET? 


BO032 4 a ae WITH THE TEST 
— OCK F 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


frurururururorure 


Ob bo ee 
WONWUIC WO 


ad 
ror 


eeT T CLOCK FLAG LOCATION 
T0033 FLAG DIDY DID NO 1 RETER A A TarTINe FERtOO > 20 MS 


£1000, SP ; INITIALIZE THE STACK POINTER 


BESS NINA 


;SET UP p yecree Tt . 


32, 100 

i o, Lk NABLE 

=( :DROP CPU PRIORITY LEVEL 

“iS, Jee -SET RETURN 'PC’ FROM THE RTI 
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DZKWAE.P11 CC PUSH TEST FOR CLOCK INTERRUPTS 


He Ore i: ovsevsezesen SRL TRG sTRerION 
it iY BRU 
CMP #17, BUF 1 
BEQ TOQ033 
MOV #17, $GDDAT 
ERROR 7 ;ERROR OID NOT PUSH CORRECT PS ONTO STACK 
BR T0032 


-SBTTL_ PC PUSH TEST FOR CLOCK INTERRUPTS 
; TEST ‘, oe INTERRUPT PUSHES THE PROGRAM COUNTER ONTO STACK 


;SETUP_VECOR IN CASE OF UNFORSEEN PROBLEMS 
sNO_INTERRUPTS WHILE PRINTING FATAL MESSAGE 
SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


; INITIALIZE A gouren LOCATION 
315 THE CL att 8 aH 


;1F SO 
He COUNTER 


+ § fan 
0.60 Tes Se EE Te on 


; INITIALIZE THE STACK POINTER 


ait 


a 
is 
Ba 
Lees 
005037 


sSET UP VecToR REPT es 
;ENABLE INT 

; DROP ay PRIORITY 

1 Be TERON TH THE RTI 


NSTRUCTION 

18: aun eo fe CODES 
WAIT sWAIT FOR INTERRUP 

C0033: 


E10033: 


iS 


1260 
lebl 
lebe 
1263 12737 
1264 
1265 
ices 
1868 


ae 


—-O 
Pitta 
ON 


sERROR, DID NOT PUSH CORRECT PC ONTO STACK 


SER ERAN 


-SBTTL END OF PASS INDICATING 
SCOPE 


T0034: 
CLR LKS ; TURN THE CLOCK OFF 
RESET : TURN EVERYTHING OFF 


5 SSE SESE SE SESE ESE SEE AR EER EEE AR EEE ER EEE SEE EEE EE SEER EEE EEE EE 
-SBTTL END OF PASS ROUTINE 

; INCREMENT THE PASS NUMBER (SPASS) 

;*TYPE "END PASS #XXXXX" ete XXXXX IS A DECIMAL NUMBER) 


;*IF THERES A MONITOR GO T 
;#IF THERE ISN’T JUMP TO TOOO! 


bb = h-< hs bh bo 2 b= he 


SERRREORN SS 





RO TNDECS 1 -OZKMA EE KUNE ERE QUENEY CLOCK PROGRAM MACYL1 27(732) 10-SEP-76 13:12 PAGE 26 





1290 

ea) ate "SCOPE 

is Baie Hite UR cr a TE 

"0061 i Ne O€Spage: ER REMENT THe PASS MUNGER 

isa ppetie p03535 siuatte 001106 Ne #o0000, SPASS DONT AY OWA NEG NUMBER 

1297 006124 005327 ¢ (PC)+ + :LOOP? 

1298 aes Soaoes SEOPCT: gltORD i onl 

1634 1 12: MOV Pets a(PC}+ + Ee rope COUNTER 

CaeEae S207: Re | 

1355 Spe tap rarer 006202 TYPE SENDMG :;TYPE “END PASS #” 

1304 006144 013746 001100 MOV $PASS, -(SP) >:SAVE S$PASS FOR TYPEOUT 

1305 006150 104404 TYPDS :G0 TYPE--DECIMAL ASCII WITH SIGN 

1306 006152 104400 006217 TYPE  ,SENULL TYPE A NULL CHARACTER 

1307 006;56 $GETY2: 

1309 006156 013700 oo004e MOV a#42, RO :;GET MONITOR ADDRESS 

1310 006162 001405 BEQ SDOAGN ::SRANCH IF NO MONITOR. 

1311 OOS164 . RESET *:CLEAR THE WORLD 

1312 006166 - 004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 

1313 006170 ooo240 NOP >:SAVE ROO 

1314 006172 o00240 NOP 33 

1315 606174 o00°40 NOP. *:ACT1I1 

1316 006176 _ $DOAGN: ." 

1317 006176 000137 001672 3 IMP a#T0001 - RETURN 

1318 O06202 OOSO1S 047105 O20104 SENDMG: .ASCIZ <15><12>/END pass’ #7 

1319 006210 orese0 051523 021440 

1321 ppeste 377 377 O00 SENULL: .BYTE -1,-1,0 :;NULL CHARACTER STRING 

1322 O06222 ooso46 TRAPO: CLR -(§p) 

1323 OObee4 0047 37 006546 JSR : PC, STYPE sPRINTOUT® TRAPPED 19 4 FROM ” 

1325 Boesae 011646 Ms 4 . (SP), -(SP) ice porte ADDRESS WHERE THE TRAP OCCURED 

Hs bes tice Ome og “SPY Ni "Ubttese wy ocra 

1368 ‘O0be42 104400 001231 TYPE ,SCRLF ?PRINTOUT A CARRIAGE RETURN-LINE FEED 

1330 Bpeses DE See 004737 oO06S46 JSR PC, STYPE ;PRINTOUT RESTARTING MESSAGE 

1331 006254 010374 TRPMeS ‘ADDRESS OF RESTART MES-AGE 

1332 006256 000240 NOP 

1333 006260 o00240 NOP 

1334 000240 NOP 

1335 006264 000240 NOP 

1336 O06266 o00005S RESET 

1332 006270 000137 001450 IMF START 

1338 : 3 SERRSLAARSRAEKKEF EERE SSE LERPRRESSRABSRS SSE 

1340 .SBTTL SCOPE HANDLER ROUTINE 

1342 :*7H OF . IT WILL INCREMENT 

is iio LOO the Test pa A) INTO The BISA RES. COISPLAY: 7:0 
: { 4 3 

1345  #THE SOTTCH OPTIONS PROSIDEE BY THis ROUTINE ORE: 
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1 seu iat INMIBIT IONS 
tig seiadst 
1349 ; #SWO8=1 LOOP ON IN SWA«7:9) 
1350 : #CALL 
1351 :# SCOPE ; ;SCOPESIOT 
1353 006274 SSCOPE: 
1354 bobe74 NOP 
138e aie Me BE ee. “gn ives Ir IF F Suis nog 
138 : eeeeeSTAR FOR THE XOR 
1358 006306 000416 SXxTSTR: SR 6s s3TF RUNNING THE “XORT TESTER CHONGE 
t3e3 006310 01:3746 MOV QSERRVEC, -(SP) ti Save HReTuET ION ia THE ERROR VECTOR 
1361 006314 012737 006334 ooo0co4 MOV BSS. aNERRVEC ;;SET FOR TIMEC'T 
i365 QORSSE Gisea? O000EM nev SRB CORERAVEC [IRECTORE THe E.AOR VECTOR 
1364 006332 000493 ck sev iB To NEXT TES 
1365 006334 Oe2be6 S$ CMP (SP)+, (SP)+ >: CLEAR TACK AFTER A TIME OUT 
1366 006336 012637 900004 MOV (SP) +’ J#ERRVEC He ERROR VECTOR 
1367 O0634< o00423 BR 7$ ON PRESENT TEST: 
1368 006344 6S: :eeesseNO OF CODE FOR THE XOR'tESTERSsees 
1369 £ “344 000409 172564 BIT #81TO8, aSWR ;;LOOP ON SPEC. TEST? 
Lit Bees Te ite Hin om fe 
1371 4 1 172556 001102 ¢ STSTNM 22 0N RIGHT TEST? SWR<7:0> 
1395 BoESes Gpe7S? 001103 25 AP OVER. FTO ON ERROR OCCURRED? 
133 ppesed 1421 Beg § $3BR IF 
1375 006372 123737 001115 001103 CMPB § SERMAX, SERFLG ERRORS FOR THIS TEST OCCURRED? 
137% 006405 101015 BHI 3$ oR IF NO 
l 402 001090 172526 BI #81709, ISWR LOOP ON ERROR? 
1378 OO6410 OO1404 BEQ 4§ ::BR IF NO 
1379 O06412 013737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP,ADDRESS TO LAST SCOPE 
1380 Oob4ed 00044 BR SOVER ; 
1381 0064 tasted 901103 4S: CLRB © SERFLG + ZERO THE E FRROR FLAG 
1382 906426 005037 001220 CLR STIMES ;;CLEAR T R OF ITERATIONS TO MAKE 
1383 432 oo04i5 BR 1$ ESCAPE a4 THE NEXT TEST 
1384 434 004000 172474 38: BIT #B1T11,aSWR tTINMIBIT ITERATIONS? 
1385 oO06442 O01011 BNE 1$ YES 
1386 S444 001100 TST $PASS itIF FIRST T PASS OF OF PROGRAM 
1 450 O01 Q RATIONS 
1388 O064S2 005237 001104 INC SICNT INCREMENT BRATION COUNT 
1389 O06456 023737 O01220 001104 CMP STIMES, SICNT CHECK THE NUMBER OF ITERATIONS MADE 
1380 006464 002021 BGE SOVER :6R IF MORE ITERATION REQUIRED 
1391 OO6466 012737 O00001 001104 1S: MOV #1, SICNT j SREINITIALIZE THE ITERATION COUNTER 
1392 006474 013737 006544 O0l220 MOV SMXCNT,STIMES ;3;SET NUMBER OF ITERATIONS TO DO 
1364 DOEEDE OLE3? ODL LOE a: PTB) ie PADR + COUNT SPE LOOP LOOP AGDRESS 
133¢ 651 Biles? 1158 * MOV LPERR 7 ie ae 
13% 00651 37 001222 LR (SP).8. GL EAR ate ESCRPE AERO ERROR ADDRESS 
1397 O08 Mt ? 900001 001115 OvB a ERMAX ONLY Al Lou ) ERROR ON NEXT TEST 
1398 0065 1 001102 172402 SovER: MOV st SIN NN, aDISPLAY Hic PLAY RUNBER 
1399 006536 013716 001106 MOV , (SP) ;;FUDGE RETURN ADDRESS 
1400 o0654e2 RTI sihaX 
1401 0065 SMXCNT: 10 . NUMBER OF ITERATIONS 
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DIAWAE.PLI SSOPE HANDLES 
aig : RELRRAARAAKERLAAHREPSRAASRAELSELELE SHSREASSRSKSRSSESSLKASS SSSA 
1433 .SBTTL TYPE ROUTINE: 
1458 s ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
10° sath ROUTINE WILL INSERT | a ity MER OF NULL CHARACT CT RS BFTER AL AL INE FEED. cree 
i405 SO: sri con OANTATR 7 HE NureER OF off oS “EAGRBCTERS Haq ; 
iis : #NOT FILLC CONTAIN HE SHARECTER TO FILL AFTER. 
14] t SCALL: 
is] :#1) USING @ TRAP duSrpucrion 
1414 1% TYPE ;MESAOR IS FIRST ADDRESS OF AN ASCIZ S*RING 
1415 ; OR 
ti Sy ARS RIOR 
i4i8 i : : 
14 Ms 
iNet DOBS¥E 105737 001155 $TYPE: 578 STPFLG 3318 THERE A TERMINAL? 
{S32 Boeeey HALT - STHALT MERE IF NO TERMINAL 
‘ +? 
14 1 1s MOV —s- RO, = (SP) :; SAVE 
1as¢ 1308 ooooae MOV. -SBLSPS RO ‘tae TE 2 asc] fay 
1428 QOS5E5 bebe 2s MOVB (RO) +, = SP) # Fuse cD nto STACK 
tas Boeere Ooeres Bye 8 \+ F FE te ady INA BR "pope IT are ee STACK 
ne Opes ; ss osocae eye: nay fp) tk: RETURN PC 
rc) aaons - 
13s : d 000311 4$: a eTHT, (SP? : BRANCH IF <HT> 
1 : & ood200 ne” aTCRLF, (SP) :;BRANCH IF NOT <CRLF? 
7 = (SP)¢ (CR <« Iv 
143 aa TYPE $e ac RENO ee’ 
1338 23; SCRLF ae 
iss sf a a ea Mm Sy 
1441 154 :  CHPa tLLc, (SP i+ Ir oF nest te CHARS. ? 
144 40 BNE $ 
iwi p01182 MOV _=(SP) e's 3 OR SHAS NEEDED 
1445 oocon1 73: (SP) TO BE T.F 
446 peste ; Bry cs nal ae et 1 Be OF STACK 
cath BBE. beCe SCHARCN 33 $308 hor BT COUNT AS A COUNT 


;HORIZONTAL TAB PROCESSOR 


fibers ts 


0-0 +0 += > -0-+8-- 8 <0 <b +0-+ 


? oo gS: MOVB #40, (SP) s REPLACE TAS WITH SPACE 
4 00675 pire Se se  eeanon TF Wr aT 
457 506706 005726 TST 8p) ::POP SPACE OFF STACK 
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SokNRe Pat St 
14 7} ? K T_NEXT CHARACTER 
133s oberg 1 ee 172230 STYPEC: rr TES rte T UNTIL BReC TER IS READY 
14 720 116677 7222 MO 2(SP) a$TPB OAD CHAR TO BE TYPED INTO DATA REG. 
ies bese 23806 Booore o666s che aie, ote) BRECK TF 
1464 ie 3 006756 RE Se uaRCNT $4 
tes 74 3 STYPEX : EXIT 
1468 ru 122 000012 ooocd2 18: CMPB 812,2(SP) $rBRONCH, IF 
1468 BoP oeS 10522 INCB (PC)+ $3 : INC SPACE 
1469 O0G755 CHARCNT: . WORD : COUN 
1370 696785 900207 TYPEX: ats im C 
14 900011 tits 
147 5002 TCRL 100 







is 4 : PRESSES SHHERESEHESHEHHEHFSS SLELHHKSSHSHHS LHRH PHESFPE LHF HS RHSEFES ESE 

1477 .S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

W750 CO . :#THIS NE IS USED CHANGE A 1 BINARY RTOA GIT 

Ne | es ‘i BA ko hE EMSRS ot 
I 


gir Are rae, eg gua wT 







1484 :* 
1485 _~ NUM, -(SP) 3 ;PUT INARY NUMBER ON THE STACK © 
14 3# Ths Hs, roe ROUTINE 







1488 STYPDS: 

1489 MOV RO,-(SP) +5 BU sy ON STACK 

14 MOV Bh -(3} 3 3PU Ba fee Tee 

149] MOV »7( SP) 3 

1492 MOV - R3,-(SP) 33 

1493 MOV RS,-(SP) $3 

1434 MOV .7 (SP) 33 ee BNO SIGN 
1495 MOV (SP),RS5 33 
14 $8 

14 

3498 








; 18: iagiatt Lis ng ae ss 

«Be nae Es ron nme 
3S: 8 Borgo). ne ts I DIGIT 

NC : . fe ree BCO DIGIT BY 1 

‘ee 

er if ey TE NG O°S? 









MAT 
O2k 





= 0-0 00 
OM ITU £ 


-“- 
wnuwmuniutl 


+ ->—-— ~ pp 





ais 
aanaaaes 


u 
W 
0 0-+ 0 0-- 0 6 < 8 © - 8 6 = 9 -< b+ 0-2 & = + 0 -~ 9-2 B= b= 9 9-5 9p = = po 





RR stata 
CESK SNMNS SENSIS: 


trparvervennervervesvervennesvertesteyt 0 20-- 0-6 - 6-26 ~~ ~ 0-- 9 -<p > 


£ 
mue- 






i 
un) 
die 





es 





~- 
un 
es 





~ 
uw 
+ 


Bass 





0-= 0-= 02 0-< 82 b= bo 0s 0 = 
apni 
TRS 





AL Ay 











007062 


ce 


8S 


we 


F2NSF LH LOS EGSERER ESO's tow Liao 
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TYPE ROUTINE 


atte 177777 ae Gs P).-1(R3) : S Po 
a a en a a 
11835 Sieg Re, (RS) tIPUT THIS C ree Ya ree So reut Bigfes 
? 000010 Aap (ie tse a per BEN x 
aS a) iS Rie pl 
J 
MOV RS,Re +3 T 
Bbosea BR ss iH cheno fo ASCIT 
105768 g$: 1378 (oP)+ :$haS THE LSD THE FIRST NON-ZERO? 
l L ;3BR IF 
116663 177777 177776 MO -1(SP),-2(R3) S- --SET THE SIGN FOR TYPING 
WN Esteg : C (R2) + THE T Migl 
1 V (SP)+,R5 ::POP STACK INTO R 
1 MOV (SP)+:R *:POP ST t IN t 
nes RY Bi He Re 
1e601 . MOV (SP)+:R1 
1e600 . MOV (SP + RO Pop p 5 ack INTO fg. 
‘007176 TYPE BLK The Run 
16865 vooco4 MOV 2(SP),4(SP) DSUs HE STACK 
1 MOV (SP)+) (SP) 
RT ;;RETURN TO USER 
s420 SOTBL: 10000. 
1 — 
54 100. 
12 10. 
K: .BLKW 4 
: SLESPSSSRESSARESLSSSSRALSSSSSSSSSSSESRSSSLSRERSSSRESLRSSSRE LASSE 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
#THIS ROUTIN 18 USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
ay Big oERtER HERE 
vPos-n-E TER T0 tire sipPRESs ZEROS AND NUMBER OF DIGITS TO TYPE 
—_ "Moy NUM, -(SP) s NUMBER TO BE TYPED 
;# YP :CALL FOR TYPEQUT 
i “BY iiNet To TO & FOR NUMBER OF DIGITS TO TYPE 
;# zs 33157 0 
: HERPES TE Fens 
+e iTyPOS 8 $tPoc HERE TO TYPE ouT WITH THE SAME PARAMETERS AS THE LAST 
#STYPOS OR 
is * MOV NUM, -(SP) R TO BE TYPED 
ia TYPON tic FOR TYPEOQUT 
j #STYPOC---ENTER HERE FOR ei OF A 16 BIT NUMBER 
:# =|) «OMOV NUM, -(SP) ;;NUMBER TO BE TYPED 
4 TYPUC :;CALL FOR TYPEOUT 
oooc00 STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 


1569 907206 017646 
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BINARY TO OCTAL (ASCII) AND TYPE 


USS Gare, OMNES Rake HEARTED Ele Moe 
eee ge, (SP) ADJUST RETURN ADDRESS 
Saray ST PoC: By a PS CT 


O0000S 007430 STYPON: Revs Site us ITERATION COUNT 


Pe 
o~3~3 


os 


iat ba at tt 
One 
bo po 
BuiuT 
ESS 


~-O0O 
Sa? 


3 


ve RY 
Ht THe NUMBER OF DIGITS TO TYPE 


Ny ry Ege ALLOWED 
eter, THE INPUT NOME 


CLEAR THE ig a aro 
ROTATE 


$1030 THIS DIGIT 


tire fas. mts eo 

Hee] et JUNK 

igre SS. Pus 0? 

: ;MAKE 1 ate Bighr ascit 5) aa 
PAL READY 


a “iene Mert 


TO 00 


a T OIGIT yer A BLANK 
& pfs DIG 


oe ‘a Bac FOR RETURNING 


Be 
ROUTINE 
ae a 

2 a ae 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMS) TO DETERMINE WHICH 


~ 


BeeaR 


ob bb b= 0 0 6 & 0 b= b— 0 => = b- & — & = 9 -- & — b-- 6 — ~~ Hp 
pepieea PP u t : ; 
os 
o- 
os bs 


wo 
— 


SReRROERoasaannpade 


OCOOwrwrrodg na 
0+ 0 b+ 0 0 0 = 
NOU CWO 
~~ 
pEEPPEREREDD: 


ee 
. 


fo 


wre 


0 0 <0 0 0-0 -- 8 < © = »—= = b= 6 = 8-9 F< bo Ob = © = 9 = Fs 


if 
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1626 ;#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
: ? !#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

l pom seRAT es 

l H07434 104400 001231 TyPE a +s CARRIAGE RETURN” & “LINE FEED" 

{pas Rees BARR AR ¢ tR, + BRYR UBC THE ITEM INDEX - 

1633 OO7444 153700 001114 BISB OusITENE, RO 


oe 
g 
é 
8 
8 


Kel We VE He laa 


ee, (SP) 33 FOR TYPE 
, ASCIICALL- DIGITS) 


a, THE woe Feet eo ian THAT Pt WiLL 


: ;FORM T POINTER 


3 ;PICKUP * NTER © 
on a ie . 
po1231 - T SCRLF Cine Peep 







2 
2 
8 
= 
g 





18: 


ragbe 
ee 
go 
a3 
B2ar 
Soom : 
Fe ies 


ine 
diza6 
te: 
Be 
Sen 
E Z 
SS 

3 







[ed 
8 
ra 
fav) 
w& 
_ 
z 
’ 
3 


-_ 
~ 
wm £ 
r= = 
<= 
oaci~ OC UIe-~ 
HF 


ae 
Fe 
2 8" 
Sit 
coat 
ee 
ee 
nee 
Set 
ae 
=z 
Bn 
rm 
Gz 





RETURN” & “LINE FEED” 





ts 

423 

aye 
eS 


RETURN 


73: 
013046 MOV a(RO)+,-(SP) ah (RO) + FOR had 
TYPOC eat ASC! cok DIGITS) 
TST (RO) 
1 Be 6 
veg T (2) SPACES 


BR 
4 000 8$: Bele ff 33 hh SPACES 
; REL RREEEEAEEEAREASEEREEREEREREE DEE EEEREERERER RAL EREERA ERS ER ESE 


-SBTTL ERROR HANDLER ROUTINE 


teen aot ateeery WILL INCREMENT ant The sroneee Ge AND nee chnce’c ut, 


1678 “PTL P BY THIS ROUTINE ARE: 
3 3 #Sidl HAL 
i675 fe iy Ay RROR TYPEOUTS 
i 3# 1 RROR 
;* =] L 
7 ®CALL 


0 = 0— b= 0 >< 6 + Bb + b+ P= = 8 OB = 8 0 0 8 


Sea aa acs a cata att 






: GO3 
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3% ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: oy | x Ble ;GET THE ane STPGK THe Phe ERROR TRAP” VALUE FOR PR 


re ae, He thd Ree Lael rene 


Brune ed D ERROR FLAG 


ib Be NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 


He P_AND Ye S, ERROR ITEM CODE 


ieee TO MEERUT OR ROUTINE 


| HSKie Yr Cont tue 
SSENOAD, a442 eT aL aUTo=a BUTO-ACCEPT? 


a, 
serT03, aSWR Ma ERROR SWITCH SET? 
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